generateExternalScoresList <-function(){
	scoresList <- list()
	scoresList[["BCE"]]			<- new("BCEClusterScore")
	scoresList[["NVIScore"]]	<- new("NVIEClusterScore")
	scoresList[["HARScore"]]	<- new("HARandEClusterScore")
	return(scoresList)
}